home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / real3d31.dms / in.adf / install < prev    next >
Encoding:
Text File  |  1995-05-03  |  8.1 KB  |  302 lines
  1.  
  2. ; Real 3D Installer Script V3
  3. ; ---------------------------
  4.  
  5. ; Real 3D Volumes
  6. ; ---------------
  7.  
  8. (set r3disk1 "Real3D_V3_Disk1:")
  9. (set r3disk2 "Real3D_V3_Disk2:")
  10. (set r3disk3 "Real3D_V3_Disk3:")
  11. (set r3disk4 "Real3D_V3_Disk4:")
  12.  
  13. ; Program used for compression/uncompression
  14. ; ------------------------------------------
  15.  
  16. (set r3comp "lharc")
  17. (set r3pfix ".lzh")
  18.  
  19. ; Procedure used for uncompression
  20. ; --------------------------------
  21.  
  22. (procedure r3uncomp
  23.     (set r3lha ("ram:%s -m -x x %s" r3comp r3disk))
  24.     (set r3ci (cat r3curritem r3pfix))
  25.     (working "Installing " r3curritem)
  26.     (if (<> (run (cat r3lha r3ci)) 0)
  27.         (message "Error while uncompressing " r3ci)
  28.     )
  29. )
  30.  
  31. ; Ask Disk procedure
  32. ; ------------------
  33.  
  34. (procedure r3askdisk
  35.     (askdisk
  36.         (prompt "Please insert " r3disk " in any drive...")
  37.         (dest (substr r3disk 0 (- (strlen r3disk) 1)))
  38.         (help @askdisk-help)
  39.     )
  40. )
  41.  
  42. ; Fetch System Configuration
  43. ; --------------------------
  44.  
  45. (set r3version    (/ (getversion) 65536))
  46.  
  47.  
  48. ; Ask the destination directory
  49. ; -----------------------------
  50.  
  51. (set version (/ (getversion) 65536))
  52.  
  53. (if (exists "R3D2:" (noreq))
  54.     (
  55.     (if (= 1 (askbool
  56.             (prompt "Real 3D Version 2 found\nThe old Real 3D V2 will be overwritten by Real 3D V3")
  57.             (help "If you select Yes, the old version will be overwritten.")
  58.             (choices "Continue" "Cancel")
  59.             (default 1))
  60.         )
  61.  
  62.         (   (set @default-dest "R3D2:")
  63.         (set r3dest1 "R3D2:")
  64.         (run "delete r3d2:examples all")
  65.         )
  66.  
  67.         (   
  68.             (exit)
  69.         )
  70.     ))
  71.  
  72.     (   
  73.         (message "ERROR: Cannot find Real 3D Version 2\n"
  74.                  "If you have installed Real 3D V2, please check\n"
  75.                  "that your s:user-startup file contains the following\n"
  76.                  "line:\n\n"
  77.                  "    assign r3d2: xxxx\n\n"
  78.                  "where 'xxxx' is the home directory of Real 3D V2\n\n"
  79.                  "If you don't have Real 3D Version 2 installed\n"
  80.                  "you either have to install it first or buy\n"
  81.                  "the complete V3"
  82.         )
  83.     
  84.         (abort "Real 3D Update from V2 to V3 failed\n")
  85.     )
  86. )
  87.  
  88. (set @execute-dir r3dest1)
  89.  
  90. ; Copy r3comp to ram:
  91. ; -------------------
  92.  
  93. (set error (trap 4 
  94.     (copyfiles 
  95.         (source (tackon r3disk1 r3comp) 
  96.         (dest   "ram:")))
  97.     )
  98. )
  99. (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  100.  
  101.  
  102. ; Ask languages to install
  103. ; ------------------------
  104.  
  105. ; (set r3locale
  106. ;    (askoptions 
  107. ;        (prompt  "Choose languages you would like to install")
  108. ;        (choices "English"
  109. ;                 "Deutch"
  110. ;                 "Italiano"
  111. ;                 "Francais"
  112. ;                 "Espanol"
  113. ;                 "Netherlands"
  114. ;                 "Svenska"
  115. ;                 "Suomi"
  116. ;        )
  117. ;        (help   "By installing only one language you can save some disk space\n"
  118. ;        )
  119. ;    )
  120. ; )
  121.  
  122.  
  123. ; Ask items to install
  124. ; --------------------
  125.  
  126. (set r3items
  127.     (askoptions 
  128.         (prompt  "Choose parts you would like to install")
  129.         (choices "Real 3D V3"
  130.                  "Utilities"
  131.                  "Support Material"
  132.                  "Examples"
  133.                  "Online Help"
  134.          "Demos"
  135.         )
  136.         (help   "Real 3D V3 - \nInstalls Real 3D main program\n\n "
  137.     
  138.             "Utilities - \n"
  139.             "Installs Real 3D utilities such as Display, "
  140.             "Delta Converter/Player, DXF Converter etc.\n\n"
  141.             
  142.             "Support Material - \nThis installs support material "
  143.             "such as objects, material libraries, bitmap textures etc.\n\n"
  144.             
  145.             "Examples -\nAnimation and other tutorial examples presented "
  146.             "in the manual\n\n"
  147.             
  148.             "Online Help -\nInstalls Commodore shared library 'AmigaGuide.library' "
  149.             "to LIBS: drawer, 'AmigaGuide' hypertext browser and Real 3D "
  150.             "help documents.\n\n"
  151.  
  152.         "Demos -\nIFF and JPEG images and delta animations "
  153.             "created with Real 3D\n\n"
  154.         )
  155.     )
  156. )
  157.  
  158.  
  159. ; Install Disk 1
  160. ; --------------
  161.  
  162. (set r3disk r3disk1) (r3askdisk)
  163.  
  164. (if (IN r3items 0) ; Real 3D V3
  165. (   (set r3curritem "Real") (r3uncomp)
  166. ))
  167.  
  168. ; Install Disk2
  169. ; -------------
  170.  
  171. (set r3disk r3disk2) (r3askdisk)
  172.  
  173. (if (IN r3items 1) ; Utilities
  174.     (   (set r3curritem "DeltaConvert") (r3uncomp)
  175.         (set r3curritem "DeltaToIFF") (r3uncomp)
  176.         (set r3curritem "Display") (r3uncomp)
  177.     )
  178. )
  179.  
  180. (if (IN r3items 2) ; support material
  181. (   (makedir (tackon r3dest1 "classes")) ; Empty drawers need this
  182.     (set r3curritem "classes") (r3uncomp)
  183.  
  184.     (set r3curritem "s") (r3uncomp)
  185.     (set r3curritem "environments") (r3uncomp)
  186.     (set r3curritem "macros") (r3uncomp)
  187.     (set r3curritem "materials") (r3uncomp)
  188.     (set r3curritem "RPL") (r3uncomp)
  189.     (set r3curritem "gui") (r3uncomp)
  190.     (set r3curritem "startup") (r3uncomp)
  191.     (set r3curritem "projects") (r3uncomp)
  192.     (set r3curritem "v3samples") (r3uncomp)
  193. ))
  194.  
  195. (if (IN r3items 4) 
  196. (   (set r3curritem "help") (r3uncomp)
  197. ))
  198.  
  199. (if (IN r3items 5) ; Demo stuff 
  200. (
  201.    (set r3curritem "Deltas") (r3uncomp)
  202. ))
  203.  
  204. ; Install Disk3
  205. ; -------------
  206.  
  207. (set r3disk r3disk3) (r3askdisk)
  208.  
  209. (if (IN r3items 2) ; the rest of support material
  210. (
  211.     (copyfiles (source (tackon r3disk "textures/GRAD1.JPG")) (dest (tackon r3dest1 "Textures")))
  212.     (copyfiles (source (tackon r3disk "textures/GRAD2.JPG")) (dest (tackon r3dest1 "Textures")))
  213.     (copyfiles (source (tackon r3disk "textures/GRAD3.JPG")) (dest (tackon r3dest1 "Textures")))
  214.     (copyfiles (source (tackon r3disk "textures/GRAD4.JPG")) (dest (tackon r3dest1 "Textures")))
  215.     (copyfiles (source (tackon r3disk "textures/GRAD5.JPG")) (dest (tackon r3dest1 "Textures")))
  216.     (copyfiles (source (tackon r3disk "textures/GREYCOL.JPG")) (dest (tackon r3dest1 "Textures")))
  217.     (copyfiles (source (tackon r3disk "textures/MIX1.JPG")) (dest (tackon r3dest1 "Textures")))
  218.     (copyfiles (source (tackon r3disk "textures/MIX2.JPG")) (dest (tackon r3dest1 "Textures")))
  219.     (copyfiles (source (tackon r3disk "textures/MIX3.JPG")) (dest (tackon r3dest1 "Textures")))
  220.     (copyfiles (source (tackon r3disk "textures/MIX4.JPG")) (dest (tackon r3dest1 "Textures")))
  221.     (copyfiles (source (tackon r3disk "textures/MIX5.JPG")) (dest (tackon r3dest1 "Textures")))
  222.     (copyfiles (source (tackon r3disk "textures/MIX6.JPG")) (dest (tackon r3dest1 "Textures")))
  223.     (copyfiles (source (tackon r3disk "textures/MIX7.JPG")) (dest (tackon r3dest1 "Textures")))
  224.  
  225.     (set r3curritem "textures/lights") (r3uncomp)
  226.     (set r3curritem "textures/panels") (r3uncomp)
  227. ))
  228.  
  229. (if (IN r3items 5) ; Demo stuff 
  230. (
  231.    (set r3curritem "Images") (r3uncomp)
  232. ))
  233.  
  234. (copyfiles 
  235.     (source (tackon r3disk "v3.readme"))
  236.     (dest r3dest1))
  237. (copyfiles 
  238.     (source (tackon r3disk "v3.readme.info"))
  239.     (dest r3dest1))
  240.  
  241. (if (IN r3items 0) ; Real 3D V3
  242. (
  243.     (set r3curritem "libs") (r3uncomp)
  244. ))
  245.  
  246.  
  247. ; Install Disk4
  248. ; -------------
  249.  
  250. (set r3disk r3disk4) (r3askdisk)
  251.  
  252. (if (IN r3items 2) ; the rest of support material
  253. (
  254.     (set r3curritem "objects")  (r3uncomp)
  255. ))
  256.  
  257. (if (IN r3items 3)
  258. (   (set r3curritem "examples") (r3uncomp)
  259. ))
  260.  
  261.  
  262. ; Cleanup 
  263. ; -------
  264.  
  265. (delete ("RAM:%s" r3comp))
  266.  
  267. ; Modify Startup-sequence
  268. ;------------------------
  269.  
  270. (set error 1)
  271. (until (= error 0)
  272.    (
  273.       (set error (trap 4
  274.          (startup "Real3D_V3"
  275.             (prompt ("The assign R3D3 has been created"))
  276.             (command ("assign R3D3: %s" r3dest1))
  277.             (help   "Real 3D uses one logical assign R3D3 to find its files."
  278.                     "Installer will add this assign to your user-startup script\n"
  279.             )
  280.          )
  281.       ))
  282.       (if (> error 0)
  283.          (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
  284.             (message "Startup file is write protected. Use protect "
  285.                     "to write enable the file, and select Proceed" )
  286.             ;else other type of error
  287.             (
  288.                 (message "Non-Standard startup sequence detected. You must add "
  289.                      "the following line by hand.\n\n"
  290.                      "    assign R3D3: " r3dest1 "\n"
  291.                 )
  292.                 (set error 0)
  293.             )                
  294.          )         
  295.       )   
  296.    )
  297. )
  298.  
  299. (makeassign "R3D3" r3dest1)
  300.  
  301. (complete 100)
  302.